home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Menus / nnlist.mrc < prev    next >
Encoding:
Text File  |  1998-05-11  |  15.4 KB  |  203 lines
  1. $s1($snick($active,1))
  2. .Whois:wi $1 $1
  3. .Ping:ctcp $snicks PING
  4. .-
  5. .CTCP
  6. ..Ping:ctcp $1 ping
  7. ..Version:ctcp $1 version
  8. ..ClientInfo:ctcp $1 clientinfo
  9. ..Finger:ctcp $1 finger
  10. ..Time:ctcp $1 time
  11. ..UserInfo:ctcp $1 userinfo
  12. ..?...:ctcp $1 $?="Enter CTCP Here:"
  13. .DCC
  14. ..Chat:DCC CHAT $1
  15. ..Send...:DCC SEND $1 $$dir="Choose A File:" [ $mircdir ]
  16. ..Send C-Script!: if ($exists($mircdirC-Script.exe) == $true) { dcc send $$1 $mircdirC-Script.exe } | else { echo -a  $+ $clr(highlight) $+ *** Unable to find C-Script.exe in $mircdir $+ ; copy C-Script.exe to $mircdir and try again }
  17. .-
  18. .Clone Info
  19. .. $+ $clone($address($snick($active,1),2),$active) $+ :halt
  20. .. $+ $address($snick($active,1),1) ( $+ $ialchan($address($snick($active,1),2),$active,0) $+ ) $+ :halt
  21. ..-
  22. .. $+ $ifcln(Warn Clones) $+ :clnwarn # $clone($address($snick($active,1),2),$active)
  23. .. $+ $ifcln(Kick Clones) $+ :clnkick # $clone($address($snick($active,1),2),$active)
  24. .. $+ $ifcln(Ban+Kick Clones) $+ :clnbk # $clone($address($snick($active,1),2),$active)
  25. .-
  26. .IP (DNS):.dns $1
  27. .Ignore
  28. ..Add:ignore $1 3
  29. ..Remove:ignore -r $1 3
  30. ..Timed...:ignore -u $+ $?="Enter How Long:" $1 3 
  31. .Notify
  32. ..Add:notify $1
  33. ..Remove:notify -r $1
  34. ..List:notify
  35. .Who
  36. ..UWho:uwho $1
  37. ..UWho/Abook List:uwho
  38. ..-
  39. ..Whois:whois $1
  40. $s2(MASS)
  41. .Whois:cmnd 'whois' $1-
  42. .CTCP
  43. ..Ping:ctcp $snicks ping
  44. ..Version:ctcp $snicks version
  45. ..ClientInfo:ctcp $snicks clientinfo
  46. ..Finger:ctcp $snicks finger
  47. ..Time:ctcp $snicks time
  48. ..UserInfo:ctcp $snicks userinfo
  49. ..?...:ctcp $snicks $?="Enter CTCP Here:"
  50. .DCC
  51. ..Chat:cmnd 'DCC CHAT' $1-
  52. ..Send...:cmnd 'DCC SEND' $1-
  53. ..Send C-Script!: if ($exists($mircdirC-Script.exe) == $true) { cssend $1- } | else { echo -a  $+ $clr(highlight) $+ *** Unable to find C-Script.exe in $mircdir $+ ... copy C-Script.exe to $mircdir and try again }
  54. .Notify
  55. ..Add:cmnd 'notify' $1-
  56. ..Remove:cmnd 'notify -r' $1-
  57. ..List:notify
  58. -
  59. $ifop(Op/Voice)
  60. . $+ $ovddv(1) $+ :cntrl + o Op $1-
  61. . $+ $ovddv(2) $+ :cntrl - o Deop $1-
  62. .-
  63. . $+ $ovddv(3) $+ :cntrl + v Voice $1-
  64. . $+ $ovddv(4) $+ :cntrl - v DeVoice $1-
  65. .$ifoper(IRCop Specials)
  66. ..SAmode
  67. ...SAop:saop $1-
  68. ...SAdeop:sadeop $1-
  69. ...SAmode:samode $$?="Channel [nick] mode"
  70. ..Omode
  71. ...Oop:saop $1-
  72. ...Odeop:sadeop $1-
  73. ...Omode:samode $$?="Channel [nick] mode"
  74. $ifop(Kick)
  75. . $+ $s1(None) $+ : { if ($me !isop #) { oecho2 } | else { k $1 Bye! } }
  76. . $+ $s1(Annoying) $+ : { if ($me !isop #) { oecho2 } | else { say That's All I Can Stand Cause I Can't Stand No More! | .timer5 1 7 kick # $1 Annoy someone else! } }
  77. . $+ $s1(ENRAGED) $+ : { if ($me !isop #) { oecho2 } | else { me becomes ENRAGED with $1 's actions and GRABS $1 by the shirt | say "HOW DOES THIS FEEL" | me Catapults $1 out of the channel!! | .timer3 1 7 kick # $1 Call 911 you need it! } }
  78. . $+ $s1(Flooder) $+ : { if ($me !isop #) { oecho2 } | else { me doesn't like flooders!!! | .timer 1 3 me thinks $1 should try flooding some other channel!! | .timer 1 5 kick # $1 BYE FLOODER!!!!!  } }
  79. . $+ $s1(Op Begger) $+ : { if ($me !isop #) { oecho2 } | else { me has had enough of $1 's begging for ops!! | say Sure you can have ops $1 .... IN ANOTHER CHANNEL | .timer5 1 7 kick # $1 DON'T BEG FOR OPS IN HERE! } }
  80. . $+ $s1(Language) $+ : { if ($me !isop #) { oecho2 } | else { me SsmellsS a foul odor coming from $1 's mouth | me grabs a can of LYSOL Pine Scented Mist and Sprays $1 's mouth with it | say "NOPE THAT DIDN'T HELP! MABYE THIS WILL!!! " | .timer5 1 2 kick # $1 BYE STINKY! } }
  81. . $+ $s1(Pick One) $+ : { if ($me !isop #) { oecho2 } | else { kick # $$1 You were kicked because  (4Pick 1)  1: 2you are a lamer,  2: 12you are annoying,  3: 4you flood,mass invite,or advertise,  4: 5you were chatting in a help channel...  5: 6you asked about bots/prefab scripts ... 6: 7you stuck your finger in an electrical socket plugging in a battery ?  7: 10all the above } }
  82. .-
  83. . $+ $s1(Noise)
  84. .. $+ $lvl($address($snick($active,1),1),On) $+ : { if ($me !isop #) { echo -a  $+ $clr(info) $+ *** You need ops on # to NoiseKick someone } | else { .ruser $1 | .guser 98 $$1 3 | .notice # [NOISE KICK ACTIVATED] If $1 speakes on # , $1 will be kicked. | .notice $1 *{NoiseKick}* NoiseKick activated, if you speak on # , you will be kicked. So please be quiet... } }
  85. .. $+ $lvl($address($snick($active,1),1),Off) $+ : { .ruser 98 $$1 3 | .ruser 99 $$1 3 | .notice # [NOISE KICK DEACTIVATED] NoiseKick deactivated for $1. | .notice $1 *{NoiseKick}* NoiseKick deactivated }
  86. .-
  87. . $+ $ovddv(5,Selected No reason) $+ :kick # $* Bye
  88. . $+ $ovddv(5,Selected Reason...) $+ :kick # $* $?="Why?"
  89. $ifop(Ban+Kick)
  90. . $+ $s1(None) $+ : { if ($me !isop #) { oecho2 } | else { bk $1 Bye! } }
  91. . $+ $s1(Action) $+ : { if ($me !isop #) { oecho3 } | else { say $1 IS ALL TALK AND NO ACTION!! | .timer1 1 5 say LET ME DEMONSTRATE SOME ACTION TO YOU $1 | .timer2 1 10 ban # $1 3 | .timer3 1 15 say LIGHTS.... | .timer4 1 17 say CAMERA..... | .timer5 1 20 kick # $1 ****ACTION**** } }
  92. . $+ $s1(ENRAGED) $+ : { if ($me !isop #) { oecho3 } | else { me becomes ENRAGED with $1 's actions and GRABS $1 by the shirt | say "HOW DOES THIS FEEL" | me Catapults $1 out of the channel!! | .timer3 1 7 ban # $1 3 | .timer4 1 8 kick # $1 Call 911 you need it! } }
  93. . $+ $s1(Enemy) $+ : { if ($me !isop #) { oecho3 } | else { me TAKES AIM UPON $1 ! | .timer1 1 3 me Whips the Cannon 3 degress right ...awww perfect | .timer2 1 6 say FIRE!! | .timer3 1 10 ban # $1 3 | .timer4 1 15 say MAN!, JUST GRAZED EM | .timer5 1 20 say FIRE 2!!!! | .timer6 1 25 kick # $1 DIRECT HIT!! | .timer7 1 30 say HEHEHEHEHEHEHE =-) } }
  94. . $+ $s1(Language) $+ : { if ($me !isop #) { oecho3 } | else { me SsmellsS a VerY foul odor coming from $1 's mouth | .timer1 1 2 me grabs a can of LYSOL Pine Scented Mist and Sprays $1 's mouth with it | .timer2 1 3 ban # $1 3 | .timer3 1 6 say "NOPE THAT DIDN'T HELP! MABYE THIS WILL!!! " | .timer4 1 7 kick # $1 BYE STINKY! } }
  95. . $+ $s1(Pick One) $+ : { if ($me !isop #) { oecho3 } | else { ban $$1 3 | kick # $$1 You were kicked because  (4Pick 1)  1: 2you are a lamer,  2: 12you are annoying,  3: 4you flood,mass invite,or advertise,  4: 5you were chatting in a help channel...  5: 6you asked about bots/prefab scripts ... 6: 7you stuck your finger in an electrical socket plugging in a battery ?  7: 10all the above } }
  96. .-
  97. . $+ $s1($address($snick(#,1),4)) $+ : { if ($me !isop #) { oecho3 } | else { ban $1 4 | kick # $1 Bye! } }
  98. . $+ $s1($address($snick(#,1),3)) $+ : { if ($me !isop #) { oecho3 } | else { ban $1 3 | kick # $1 Bye! } }
  99. . $+ $s1($address($snick(#,1),2)) $+ : { if ($me !isop #) { oecho3 } | else { ban $1 2 | kick # $1 Bye! } }
  100. . $+ $s1($address($snick(#,1),1)) $+ : { if ($me !isop #) { oecho3 } | else { ban $1 1 | kick # $1 Bye! } }
  101. .-
  102. . $+ $ovddv(5,Selected No reason) $+ : { if ($me !isop #) { oecho3 } | else { cntrl2 + b ban 3 $1- | kick # $* } }
  103. . $+ $ovddv(5,Selected Reason...) $+ :cntrl2 + b ban 3 $1- | kick # $* $?="Why?"
  104. . $+ $s1(Timed...) $+ : { if ($me !isop #) { oecho3 } | else { ban -u $+ $?="How long should the ban last? (secs)" $1 3 | kick # $1 } }
  105. $ifop(Ban/Unban)
  106. .Ban
  107. .. $+ $s1($address($snick(#,1),4)) $+ : { if ($me !isop #) { oecho } | else { ban $1 4 } }
  108. .. $+ $s1($address($snick(#,1),3)) $+ : { if ($me !isop #) { oecho } | else { ban $1 3 } }
  109. .. $+ $s1($address($snick(#,1),2)) $+ : { if ($me !isop #) { oecho } | else { ban $1 2 } }
  110. .. $+ $s1($address($snick(#,1),1)) $+ : { if ($me !isop #) { oecho } | else { ban $1 1 } }
  111. ..-
  112. .. $+ $s1(Timed...) $+ : { if ($me !isop #) { oecho } | else { ban -u $+ $?="How long should the ban last? (secs)" $1 3 } }
  113. ..$+ $ovddv(5,Selected,user,+,site) $+ :cntrl2 + b ban 3 $1-
  114. .. $+ $ovddv(5,Selected,Site) $+ :cntrl2 + b ban 4 $1-
  115. .Unban
  116. .. $+ $s1($address($snick(#,1),4)) $+ : { if ($me !isop #) { echo -a  $+ $clr(info) $+ *** You need ops on # to unban someone } | else { mode $active -b $address($$1,4) } }
  117. .. $+ $s1($address($snick(#,1),3)) $+ : { if ($me !isop #) { echo -a  $+ $clr(info) $+ *** You need ops on # to unban someone } | else { mode $active -b $address($$1,3) } }
  118. .. $+ $s1($address($snick(#,1),2)) $+ : { if ($me !isop #) { echo -a  $+ $clr(info) $+ *** You need ops on # to unban someone } | else { mode $active -b $address($$1,2) } }
  119. .. $+ $s1($address($snick(#,1),1)) $+ : { if ($me !isop #) { echo -a  $+ $clr(info) $+ *** You need ops on # to unban someone } | else { mode $active -b $address($$1,1) } }
  120. -
  121. ;Most of the color actions thanks to the #mIRC Info Center
  122. $s1(Actions)
  123. .Color
  124. ..Blocks:say 1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.8,1 $$1! 15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.
  125. ..Candy:say $me hands $$1 a handful of 15,15.0,2L1,9I0,3F0,4E1,8S0,10A0,4V0,3E1,9R0,5S15,15. 115,15.21,9S0,3K0,4I1,8T0,10T0,4L0,3E1,9S15,15. 15,15.0,2 PEP-O-MINT 15,15.3,0 15,15.5,5.5,4á40,5TootsieRoll4,44,4.5,5.15,15.10,03,0 15,15.15,5HERSHEY'S15,15. 15,15l4,8<~Juicy-Fruit~>15,15l
  126. ..Color Arrow:me (»`'╖.╕(»`'╖.╕ ________________╕.╖'┤»)╕.╖'┤») | me  (»`'╖.╕(»`'╖.╕  1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1 ╕.╖'┤»)╕.╖'┤») | me  ----==>>>>------>12,11 $$1  ----==>>>>------> | me (_╕.╖'┤(_╕.╖'┤  1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1 `'╖.╕_)`'╖.╕_) | me  (_╕.╖'┤(_╕.╖'┤ »»»»»»»»»»»»»»»» `'╖.╕_)`'╖.╕_)
  127. ..Color Hi:rainbow Hello there $$1 $+ !
  128. ..Color Lines:say 4,1/8/9/3/12/6/13/4/8/9/3/12/6/13/4/8/9/1,1 $$1 12\6\13\4\8\9\3\12\6\13\4\8\9\3\12\6\13\ | /say 1,1.6,15H1,1.9,14I1,1.8,13Y1,1.0,12A8,1*6,11H1,1.9,10I1,1.8,13Y1,1-6,15A8,1| $$1 |6,15H1,1-9,13I1,1.8,10Y1,1.6,11A8,1*0,12H1,1.9,13I1,1.8,14Y1,1.6,15A1,1. | /say 12,1\6\13\4\8\9\3\12\6\13\4\8\9\3\12\6\13\1,1 $$1 4,1/8/9/3/12/6/13/4/8/9/3/12/6/13/4/8/9/8
  129. ..Hershey's Kiss:say $me gives $$1 a BIG 15,15.15,5 HERSHEY'S 15,15. Kiss 2,8:)
  130. ..Mice:say It's so quiet in this channel, the mice run... | say ~~16,14 (,,░░>áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá ~~16,14(,,░░> áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá ~~16,14(,,░░> 
  131. ..Tums:say $me hands $$1 a roll of 15,15--12,12---0TUMS12---15,15--10,0 for the 4heartburn
  132. ..Welcome:say 13,1°ñ░`░ñ°,╕╕,°ñ°ñ░`░ñ°,╕╕,°ñ9,1 Hello 4,1 $$1 9,1 Welcome to our little place in space 13,1°ñ░`░ñ°,╕╕,°ñ°ñ░`░ñ°,╕╕,°ñ°ñ░`░ñ°,╕╕,°ñ
  133. .Fancy Text
  134. ..Ascii...:ascii $$?="Text: (MAX 245 Chars)"
  135. ..Ascii-Rainbow...:asciirain $$?="Text: (MAX 245 Chars)"
  136. ..Black-Rainbow...:brain $$?="Text: (MAX 245 Chars)"
  137. ..Code...:code $$?="Text: (MAX 245 Chars)"
  138. ..Decode...:decode $$?="Text: (MAX 245 Chars)"
  139. ..Fake-Say...:fake
  140. ..Funky Talk...:fct $$?="Text: (MAX 245 Chars)"
  141. ..Invisible...:say 0 $$?="Text: (MAX 245 Chars)"
  142. ..Rainbow...:rainbow $$?="Text: (MAX 245 Chars)"
  143. ..Reverse...:reverse $$?="Text: (MAX 245 Chars)"
  144. ..-
  145. ..Colors
  146. ...Black-Green...:bg $$?="Text: (MAX 245 Chars)"
  147. ...Black-Red-Green...:brg $$?="Text: (MAX 245 Chars)"
  148. ...Black-White...:bw $$?="Text: (MAX 245 Chars)"
  149. ...Red-Black...:brick $$?="Text: (MAX 245 Chars)"
  150. ...Red-Green...:rg $$?="Text: (MAX 245 Chars)"
  151. ...Red-White...:rw $$?="Text: (MAX 245 Chars)"
  152. .Fight
  153. ..Block Attack:me blocks $1 $+ 's futile and hopeless attack!
  154. ..Glare at User:me glares sharply at $1 $+ !
  155. ..Punch User:me punches $1 sharply in the nose!
  156. .General
  157. ..Bye:say Bye $1 $+ ! Take Care!
  158. ..Get Fake Ops:describe $chan 3*** $$1 sets mode: +o $me $+ 
  159. ..Give Fake Ops:describe $chan 3*** $me sets mode: +o $$1 $+ 
  160. ..Group Hug:say $str($chr(123),15) $1- $str($chr(125),15)
  161. ..Glue Down:me gets some 12Cyber-Glue7« and glues $$1 down to # $+ !!
  162. ..Hi:say Hi there $1 $+ !
  163. ..Hug:say $str($chr(123),15) $$1 $str($chr(125),15)
  164. ..Laugh at:me laughs uncontrollably at $$1 $+ !
  165. ..WAVE:me waves hi to $$1 $+ !
  166. ..Welcome Back:me warmly welcomes $$1 back!
  167. .Love
  168. ..Cuddle Closely:me cuddles up closely with $$1
  169. ..Drop Ice Down Shirt:me drops a cold ice cube down $$1's shirt!
  170. ..Tickle:me tickles $$1!
  171. .Slap
  172. ..SR-71 Blackbird:me slaps $1 around a bit with an SR-71 Blackbird 
  173. ..Trout:me slaps $1 around with a large (you guessed it) trout! *SPLAT*
  174. ..Slap ?...:me slaps $1 around a bit with a $$?="Slap with what?"
  175. .-
  176. .ASCII Art...:sa
  177. .Vote
  178. .. $+ $ifvote(off,To Ban) $+ :if ($me !isop #) { oecho4 } | onotice The [C-Script] voting polls have been activated | onotice Your Decision Is On Banning $1 | onotice Type /msg $me YES to vote yes or /msg $me NO to vote no | .enable #VOTE | set %vyes 0 | set %vno 0
  179. .. $+ $ifvote(off,To Give Ops,off) $+ :if ($me !isop #) { oecho4 } | onotice The [C-Script] voting polls have been activated | onotice Your Decision Is On Giving Ops To $1 | onotice Type /msg $me YES to vote yes or /msg $me NO to vote no | .enable #VOTE | set %vyes 0 | set %vno 0
  180. .. $+ $ifvote(off,To Kick) $+ :if ($me !isop #) { oecho4 } | onotice The [C-Script] voting polls have been activated | onotice Your Decision Is On Kicking $1 | onotice Type /msg $me YES to vote yes or /msg $me NO to vote no | .enable #VOTE | set %vyes 0 | set %vno 0
  181. .. $+ $ifvote(off,To Take Ops) $+ :if ($me !isop #) { oecho4 } | onotice The [C-Script] voting polls have been activated | onotice Your Decision Is On Taking Ops From $1 | onotice Type /msg $me YES to vote yes or /msg $me NO to vote no | .enable #VOTE | set %vyes 0 | set %vno 0
  182. ..-
  183. .. $+ $ifvote(off,Vote for something else...) $+ :if ($me !isop #) { oecho4 } | onotice The [C-Script] voting polls have been activated | onotice Your Decision Is On " $+ $$?="What is the vote on?" $+ " | onotice Type /msg $me YES to vote yes or /msg $me NO to vote no | .enable #VOTE | set %vyes 0 | set %vno 0
  184. ..-
  185. .. $+ $ifvote(on,Last Chance) $+ :onotice The [C-Script] voting polls are about to close
  186. .. $+ $ifvote(on,Tally Votes) $+ :onotice The [C-Script] voting polls are now closed... stay tuned for the results | .disable #VOTE | .timer 1 5 onotice The [C-Script] voting poll results - Yes: %vyes No: %vno | set %vyes 0 | set %vno 0 | unset %voters %vyes %vno
  187. .-
  188. . $+ $ifop(Warning) $+ :me warns $1 to watch their behavior or risk being kicked!
  189. . $+ $ifop(Perv Chan Warn) $+ :say $str(*,10) WARNING: $$1 $str(*,10) | .timer1 1 2 say $str(*,10) WARNING $$1 : IF YOU DON'T LEAVE THOSE BAD CHANNELS YOU ARE ON YOU WILL BE KICKED $str(*,10) | .timer2 1 4 say $str(*,10) WARNING $$1 : YOU HAVE 30 SECONDS $str(*,10) | .timer3 1 46 whois $$1
  190. .Quote:quote
  191. .Addicted:addicted
  192. $s1(Levels)
  193. .Auser ?...:.auser $?="ENTER LEVEL" $1 | .guser $! $1 3 | echo -a  $+ $clr(info2) $+ *** Added $1 to level $!
  194. .Add Who...:.set %addlvlpopnick $?="NICK" | .auser $?="LEVEL" %addlvlpopnick | .guser $! %addlvlpopnick 3 | echo -a  $+ $clr(info2) $+ *** Added %addlvlpopnick to level $! | unset %addlvlpopnick
  195. .-
  196. .Ruser:.ruser $1 3 | .ruser $1 | echo -a  $+ $clr(info2) $+ *** Removed $1 from user list
  197. .-
  198. .Friendlist:.auser 7 $$1 | .guser 7 $$1 3 | echo -a  $+ $clr(info2) $+ *** Added $$1 to Friend-List
  199. .R-Friend:.ruser 7 $$1 | .ruser 7 $$1 3 | echo -a  $+ $clr(info2) $+ *** Removed $$1 from Friend-List
  200. .-
  201. .Shootlist:.auser =999 $$1 | .guser =999 $$1 3 | ban $1 3 | if ($me isop $active) { kick # $$1 (( C-Script ShOotLiSt KiCk )) } | echo -a  $+ $clr(info) $+ *** Shootlisted $$1
  202. .R-Shoot:.ruser =999 $?="ENTER NICK" | .ruser =999 $! 3  | echo -a  $+ $clr(info) $+ *** Un-Shootlisted $!
  203.